home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / •HC 2.0-3 / background_4661.txt < prev    next >
Text File  |  1990-04-06  |  4KB  |  146 lines
  1. -- background: 4661 from stack: in.0-3
  2. -- bmap block id: 5200
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: text
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   global MapMode
  9.   put "text" into MapMode
  10. end openBackground
  11.  
  12.  
  13. -- part 3 (button)
  14. -- low flags: 00
  15. -- high flags: 2000
  16. -- rect: left=474 top=235 right=264 bottom=506
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 10112 / 10112
  19. -- text alignment: 1
  20. -- font id: 0
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: HomeBtn
  25. ----- HyperTalk script -----
  26. -- This handler lets the user quit or go home.
  27. -- It goes to cd "hi" of the Intro stack first to reset things.
  28. on mouseUp
  29.   answer "What do you want to do?" with "Cancel" or "Quit" or "Go Home"
  30.   if it is not "Cancel" then
  31.     lock screen
  32.     global CameFrom,stakName
  33.     put the short name of this cd into CameFrom
  34.     put the short name of this stack into stakName
  35.     go to cd "hi" of stack "Intro to HyperCard 2.0"
  36.     if it is "Quit" then
  37.       put "doMenu " & quote & "Quit HyperCard" & quote into myMsg
  38.       send myMsg to this cd
  39.     else if it is "Go Home" then send "doMenu Home" to this cd
  40.   end if
  41. end mouseUp
  42.  
  43.  
  44.  
  45. -- part 8 (field)
  46. -- low flags: 01
  47. -- high flags: 2007
  48. -- rect: left=10 top=72 right=329 bottom=459
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 0 / 0
  51. -- text alignment: 0
  52. -- font id: 174
  53. -- text size: 12
  54. -- style flags: 0
  55. -- line height: 16
  56. -- part name: index
  57. ----- HyperTalk script -----
  58. -- This handler goes to the cd the user chose.
  59. on mouseUp
  60.   global MapMode
  61.   -- compute line number clicked
  62.   get item 2 of the clickLoc - top of me + scroll of me
  63.   put 1 + it div the textHeight of me into lineNum
  64.  
  65.   -- Highlight the text in the line
  66.   select line lineNum of me
  67.   put stripLeadBlanks (line lineNum of me) into Subject
  68.   delete word 1 of Subject
  69.  
  70.   lock screen
  71.   put line lineNum of cd fld "ButtonDests" into myBtnInfo
  72.   --  put "send mouseUp to " & (item 1 of myBtnInfo) & " of cd " & --  (item 2 of myBtnInfo) into myAction
  73.   --  put myAction
  74.   --  do myAction
  75.   --  send mouseUp to (item 1 of myBtnInfo) of cd (item 2 of myBtnInfo)
  76.   put "go cd " & item 2 of myBtnInfo into myAction
  77.   do myAction
  78.   send mouseUp to (item 1 of myBtnInfo)
  79.  
  80.   unlock screen with visual dissolve
  81.   put "text" into MapMode
  82. end mouseUp
  83.  
  84.  
  85.  
  86.  
  87.  
  88. -- This handler goes to the cd the user chose.
  89. on mouseUp
  90.   global MapMode
  91.   -- compute line number clicked
  92.   get item 2 of the clickLoc - top of me + scroll of me
  93.   put 1 + it div the textHeight of me into lineNum
  94.  
  95.   -- Highlight the text in the line
  96.   select line lineNum of me
  97.   put stripLeadBlanks (line lineNum of me) into Subject
  98.   delete word 1 of Subject
  99.  
  100.   if subject is in cd fld "level 1" then
  101.     send mouseUp to bg btn Subject of cd "level 1"
  102.   else if subject is in cd fld "sublevel 1" then
  103.     go cd "level 1"
  104.     if subject is line 1 of cd fld "sublevel 1" then
  105.       send mouseUp to bg btn "section 1:"
  106.     else if subject is line 2 of cd fld "sublevel 1" then
  107.       send mouseUp to bg btn "section 2:"
  108.     else if subject is line 3 of cd fld "sublevel 1" then
  109.       send mouseUp to bg btn "section 3:"
  110.     end if
  111.   else if subject is in cd fld "SAs" then
  112.     if subject is line 1 of cd fld "SAs" then
  113.       send mouseUp to cd btn "section 1:" of cd "section 1:"
  114.     else if subject is line 2 of cd fld "SAs" then
  115.       send mouseUp to cd btn "section 2:1" of cd "section 2:"
  116.     else if subject is line 3 of cd fld "SAs" then
  117.       send mouseUp to cd btn "section 2:2" of cd "section 2:"
  118.     else if subject is line 4 of cd fld "SAs" then
  119.       send mouseUp to cd btn "section 3:" of cd "section 3:"
  120.     end if
  121.   else if subject is in cd fld "section 1:" then
  122.     put IDoffBtn (Subject, "section 1:") into IDnum
  123.     send mouseUp to btn id IDnum of cd "section 1:"
  124.   else if subject is in cd fld "section 2:" then
  125.     put IDoffBtn (Subject, "section 2:") into IDnum
  126.     send mouseUp to btn id IDnum of cd "section 2:"
  127.   else if subject is in cd fld "section 3:" then
  128.     put IDoffBtn (Subject, "section 3:") into IDnum
  129.     send mouseUp to btn id IDnum of cd "section 3:"
  130.   end if
  131.   unlock screen with visual dissolve
  132.   put "text" into MapMode
  133. end mouseUp
  134.  
  135. -- This function returns the ID of the clicked btn.
  136. function IDoffBtn Subject, Section
  137. lock screen
  138. go cd Section
  139. repeat with i=1 to number of btns
  140.   if (char 1 to 15 of the short name of btn i) is (char 1 to 15 of subject) then
  141.     return the ID of btn i
  142.   end if
  143. end repeat
  144. end IDoffBtn
  145.  
  146.